This dataset consists of a listing of payments made to Fulton County vendors for poducts and services provided to the County. The payment records span the period from January 1, 2014 to present. Included with each payment record is the disbursement date, the department making the payment, the type of service or product, the fund from which the payment is drawn, the payment amount and the name of the vendor to which the payment was made. This dataset is updated weekly.
## Install the required package with:
## install.packages("RSocrata")
library("dplyr")##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary("RSocrata")
library("tidyverse")## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.3 v stringr 1.4.0
## v tidyr 1.1.3 v forcats 0.5.1
## v readr 2.0.0## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()VendorPayments <- read.socrata(
"https://data.fultoncountyga.gov/resource/mxhc-krcg.json"
)VendorPaymentsVendorPayments <-
VendorPayments %>% mutate(payment_type = as.factor(payment_type),
city = as.factor(city),
fiscal_year = as.numeric(fiscal_year),
fy_period = as.numeric(fy_period),
dept = as.factor(dept),
unit = as.factor(unit),
unit_name = as.factor(unit_name),
object = as.factor(object),
object_name = as.factor(object_name),
fund = as.factor(fund),
fund_name = as.factor(fund_name),
amount = as.numeric(amount),
# = as.numeric(),
# = as.numeric(),
# = as.numeric(),
vendor_legal_name = as.factor(vendor_legal_name),
check_status = as.factor(check_status),
# = as.factor(),
# = as.factor(),
# = as.factor(),
department_name = as.factor(department_name)) %>%
select(-c("vendor_code", "check_no","dis_doc_id", "payment_document", "vendor_invoice_no", "dept", "unit", "fiscal_year", "fy_period", "object", "fund", "vendor_invoice_date", "payment_type", "disb_week", "vendor_invoice_week", "check_clearance_or_cancel_date", "check_cc_week", "city"
))
summary(VendorPayments, maxsum = 8)## disb_date department_name
## Min. :2017-01-04 00:00:00 Non-Agency : 32197
## 1st Qu.:2018-03-23 00:00:00 Real Estate and Asset Management : 27320
## Median :2019-04-24 00:00:00 Public Works : 20646
## Mean :2019-05-02 23:16:56 Department of Community Development: 18464
## 3rd Qu.:2020-06-05 00:00:00 Fulton County Board of Health : 15937
## Max. :2021-08-13 00:00:00 Superior Court-General : 10467
## Library : 9584
## (Other) :138628
## unit_name
## Insurance & Bonds : 21977
## Housing & Community Development : 13765
## District Attorney : 7565
## Superior Court - Court Administration: 6762
## Utilities : 6349
## Central Fulton Service Area : 5796
## Transportation & Logistics : 5756
## (Other) :205273
## object_name
## Professional Services : 30241
## Office Supplies : 24077
## Workers Compensation Coverage and Claims: 19689
## Tenant Rental Assistance : 9924
## Travel/Conference : 9454
## Maintenance Supplies : 8604
## Uniforms : 8287
## (Other) :162967
## fund_name amount
## General :148092 Min. :-2389709
## Risk Management Fund : 26677 1st Qu.: 86
## Fulton County Board of Health: 15406 Median : 292
## EMERGENCY RENTAL ASSISTANCE : 13260 Mean : 7840
## Grants : 13161 3rd Qu.: 1276
## Water & Sewer Revenue : 11333 Max. : 9244359
## Water & Sewer R & E : 6445
## (Other) : 38869
## vendor_legal_name check_status
## OFFICE DEPOT : 6734 Cancelled: 4589
## AT&T MOBILITY : 6701 Disbursed: 17838
## AMAZON.COM : 6439 Paid :250816
## HAPPY FACES PERSONNEL GP. INC.: 4402
## EQUIAN : 4050
## CONCENTRA : 3997
## STAPLES ADVANTAGE : 3840
## (Other) :237080{upload-VendorPayments-Data, cache=TRUE, cache.extra = Sys.Date()} #googledrive::drive_auth() library(openxlsx) library(googledrive) openxlsx::write.xlsx(list("Vendor Payments" = VendorPayments) , "Atlanta.xlsx", overwrite = TRUE, asTable = TRUE, freezePane = c("firstRow"), colWidths = "auto", withFilter = TRUE) #googledrive::drive_upload(media ="Atlanta.xlsx", type = "spreadsheet", overwrite = TRUE) googledrive::drive_update(media ="Atlanta.xlsx", file = as_id("1yVUKyYIfw6-2f6HfHImNtVORrBTnuIuCpZRDrNCYaI8"))